home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 October / Ahoy_Magazine_86-10_1986_Double_L.d64 / Quick Change (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  6.7 KB  |  135 lines
  1. 5 rem *** quick change *** buck childress ***
  2. 10 rem *** p.o. box 13575 salem, or 97309 ***
  3. 15 printchr$(147)"loading and checking data line:":j=50000:l=50:c=11
  4. 20 printchr$(19)tab(31)l:print:forb=0toc:reada:ifa<0ora>255then30
  5. 25 pokej+b,a:x=x+a:nextb:reada:ifa=xthen35
  6. 30 print"error in data line:"l:end
  7. 35 x=0:j=j+12:l=l+5:ifl<671then20
  8. 40 print"the data is ok and loaded.":print
  9. 45 print"sys 50000 to switch on and off.":end
  10. 50 data169,106,162,132,160,195,204,1,3,208,6,169,1515
  11. 55 data139,162,135,160,227,141,0,3,140,1,3,76,1187
  12. 60 data251,199,173,0,2,201,65,144,4,201,91,144,1475
  13. 65 data3,76,139,227,32,237,199,32,217,199,133,253,1747
  14. 70 data162,96,134,251,142,138,2,157,0,201,232,208,1723
  15. 75 data250,232,169,39,141,248,201,32,79,199,169,91,1850
  16. 80 data133,252,141,247,201,162,10,32,251,199,133,254,2015
  17. 85 data166,252,169,100,32,171,199,32,66,199,32,7,1425
  18. 90 data200,32,228,255,240,245,133,212,201,13,208,44,2011
  19. 95 data173,96,201,240,227,169,32,166,252,157,0,4,1717
  20. 100 data166,251,48,13,169,192,162,24,160,171,133,251,1740
  21. 105 data132,252,76,159,195,173,192,201,208,86,162,139,1975
  22. 110 data134,199,32,251,199,76,52,196,201,20,208,39,1607
  23. 115 data174,247,201,48,3,76,120,195,169,0,162,32,1427
  24. 120 data157,192,201,202,16,250,164,254,32,162,199,132,1961
  25. 125 data254,140,247,201,169,192,162,171,133,251,134,252,2306
  26. 130 data76,164,195,166,254,224,26,144,3,76,171,195,1694
  27. 135 data230,254,166,251,157,0,201,230,251,230,252,32,2254
  28. 140 data210,255,165,252,16,3,141,247,201,76,164,195,1925
  29. 145 data32,240,199,162,105,32,251,199,169,0,162,9,1560
  30. 150 data157,0,2,172,233,201,208,3,157,230,201,202,1766
  31. 155 data16,242,174,233,201,169,100,157,251,4,173,134,1854
  32. 160 data2,157,251,216,32,66,199,32,7,200,32,228,1422
  33. 165 data255,240,245,201,13,208,39,173,233,201,240,20,2068
  34. 170 data173,235,201,201,2,144,229,32,181,199,173,238,2008
  35. 175 data201,208,107,173,239,201,208,102,169,255,141,238,2242
  36. 180 data201,141,239,201,141,230,201,76,234,196,201,20,2081
  37. 185 data208,30,172,233,201,240,9,32,162,199,140,233,1859
  38. 190 data201,76,60,196,169,32,141,251,4,160,79,32,1401
  39. 195 data162,199,200,132,254,76,244,195,201,45,208,20,1936
  40. 200 data174,231,201,208,159,141,231,201,32,210,255,238,2281
  41. 205 data233,201,32,181,199,76,60,196,201,48,144,140,1711
  42. 210 data201,58,176,136,174,232,201,224,5,176,129,157,1869
  43. 215 data0,2,32,210,255,238,232,201,238,233,201,76,1918
  44. 220 data78,196,32,237,199,32,217,199,173,248,201,32,1844
  45. 225 data79,199,172,192,201,208,8,162,77,32,140,199,1669
  46. 230 data76,18,197,162,87,32,140,199,162,96,32,251,1452
  47. 235 data199,162,96,32,145,199,162,119,32,251,199,174,1770
  48. 240 data236,201,173,237,201,32,205,189,169,45,32,210,1930
  49. 245 data255,173,230,201,208,12,174,238,201,173,239,201,2305
  50. 250 data32,205,189,76,59,197,162,128,32,251,199,162,1692
  51. 255 data38,32,251,199,32,66,199,32,7,200,32,228,1316
  52. 260 data255,201,89,240,7,201,78,208,239,76,120,195,1909
  53. 265 data169,1,162,8,141,240,201,142,241,201,32,237,1775
  54. 270 data199,141,138,2,141,245,201,32,127,199,160,0,1585
  55. 275 data177,253,208,3,76,116,164,32,15,199,177,253,1673
  56. 280 data170,32,15,199,177,253,142,250,201,141,251,201,2032
  57. 285 data205,237,201,144,7,208,23,236,236,201,176,18,1892
  58. 290 data32,205,189,32,15,199,162,0,161,253,240,82,1570
  59. 295 data32,15,199,76,152,197,205,239,201,144,9,208,1677
  60. 300 data199,236,238,201,144,2,208,192,32,205,189,169,2015
  61. 305 data32,32,210,255,32,15,199,169,39,162,201,141,1487
  62. 310 data249,201,141,253,201,134,252,169,96,162,0,133,1991
  63. 315 data251,142,242,201,142,246,201,161,253,240,23,32,2134
  64. 320 data88,198,173,242,201,205,246,201,208,88,162,0,2012
  65. 325 data161,251,240,91,32,15,199,76,211,197,142,244,1859
  66. 330 data201,32,240,199,173,245,201,208,16,32,15,199,1761
  67. 335 data165,253,166,254,141,240,201,142,241,201,76,94,2174
  68. 340 data197,162,0,32,251,199,169,19,141,119,2,169,1460
  69. 345 data13,141,120,2,141,121,2,141,122,2,169,4,978
  70. 350 data133,198,76,116,164,32,127,199,32,15,199,32,1323
  71. 355 data15,199,162,0,32,15,199,161,253,208,249,76,1569
  72. 360 data249,197,32,7,200,32,15,199,76,199,197,172,1575
  73. 365 data242,201,32,162,199,141,245,201,185,192,201,240,2241
  74. 370 data233,32,195,198,200,76,76,198,166,212,208,64,1858
  75. 375 data174,253,201,142,249,201,162,18,201,131,240,5,1977
  76. 380 data202,201,143,208,3,142,253,201,201,128,144,40,1866
  77. 385 data56,233,127,170,160,255,202,240,8,200,185,158,1994
  78. 390 data160,16,250,48,245,200,185,158,160,48,14,238,1722
  79. 395 data243,201,32,156,198,169,0,141,243,201,76,133,1793
  80. 400 data198,56,233,128,72,162,0,193,251,208,26,173,1700
  81. 405 data248,201,201,10,240,16,166,212,240,7,201,62,1804
  82. 410 data240,8,76,189,198,205,249,201,208,3,238,246,2061
  83. 415 data201,230,251,238,242,201,104,174,244,201,48,11,2145
  84. 420 data208,12,166,211,224,79,144,3,142,244,201,76,1710
  85. 425 data210,255,173,243,201,240,2,104,104,104,104,162,1902
  86. 430 data192,142,244,201,162,61,32,251,199,174,250,201,2109
  87. 435 data173,251,201,32,205,189,169,32,32,210,255,32,1781
  88. 440 data127,199,169,3,133,252,164,252,177,253,240,8,1977
  89. 445 data32,88,198,230,252,76,254,198,76,116,164,230,1914
  90. 450 data253,208,2,230,254,96,201,8,240,251,201,11,1955
  91. 455 data240,247,201,16,240,243,201,19,240,239,201,24,2111
  92. 460 data240,235,201,27,240,231,201,32,240,227,201,35,2110
  93. 465 data240,223,201,56,240,219,201,59,240,215,169,0,2063
  94. 470 data133,198,173,141,2,201,4,208,204,165,203,201,1833
  95. 475 data64,240,243,160,0,201,39,240,24,160,9,201,1581
  96. 480 data10,240,18,160,18,201,17,240,12,160,27,201,1304
  97. 485 data18,240,6,160,36,201,62,208,169,141,248,201,1690
  98. 490 data162,16,185,249,200,240,121,32,171,199,232,200,2007
  99. 495 data76,114,199,173,240,201,174,241,201,133,253,134,2139
  100. 500 data254,76,15,199,32,251,199,162,0,189,96,201,1674
  101. 505 data240,7,32,210,255,232,76,145,199,169,34,76,1675
  102. 510 data210,255,169,20,32,210,255,136,208,250,96,157,1998
  103. 515 data0,4,173,134,2,157,0,216,96,169,0,162,1113
  104. 520 data2,133,122,134,123,141,232,201,32,121,0,32,1273
  105. 525 data107,169,165,20,174,235,201,157,236,201,232,165,2062
  106. 530 data21,157,236,201,232,142,235,201,96,162,11,160,1854
  107. 535 data0,24,32,240,255,169,42,160,39,32,164,199,1356
  108. 540 data162,147,76,251,199,32,68,229,169,0,133,198,1664
  109. 545 data133,199,133,212,133,216,96,189,25,200,240,250,2026
  110. 550 data32,210,255,232,76,251,199,32,225,255,208,238,2213
  111. 555 data104,104,169,0,141,138,2,32,68,229,76,116,1179
  112. 560 data164,13,83,89,83,53,48,55,50,53,0,17,708
  113. 565 data13,79,76,68,32,69,78,84,82,89,63,32,765
  114. 570 data0,13,13,78,69,87,32,69,78,84,82,89,694
  115. 575 data63,32,0,13,13,18,65,82,69,32,89,79,555
  116. 580 data85,32,83,85,82,69,63,32,40,89,47,78,785
  117. 585 data41,0,13,13,18,32,84,79,79,32,76,79,546
  118. 590 data78,71,32,13,13,0,13,13,69,82,65,83,532
  119. 595 data69,32,34,0,13,13,84,85,82,78,32,34,556
  120. 600 data0,13,13,73,78,84,79,32,34,0,13,13,432
  121. 605 data84,72,69,32,82,65,78,71,69,63,32,0,717
  122. 610 data13,13,76,73,78,69,83,32,0,69,78,68,652
  123. 615 data0,79,78,0,79,70,70,0,32,69,82,65,624
  124. 620 data83,69,32,0,13,13,13,67,84,82,76,32,564
  125. 625 data65,32,61,32,65,76,76,13,67,84,82,76,729
  126. 630 data32,68,32,61,32,68,65,84,65,13,67,84,671
  127. 635 data82,76,32,78,32,61,32,78,79,82,77,65,774
  128. 640 data76,13,67,84,82,76,32,81,32,61,32,81,717
  129. 645 data85,79,84,69,83,13,67,84,82,76,32,82,836
  130. 650 data32,61,32,82,69,77,83,19,0,160,142,143,900
  131. 655 data146,141,129,140,160,0,160,160,129,140,140,160,1605
  132. 660 data160,160,0,160,160,146,133,141,147,160,160,0,1527
  133. 665 data160,160,132,129,148,129,160,160,0,160,145,149,1632
  134. 670 data143,148,133,147,160,0,0,0,0,0,0,0,731
  135.